0 REM << CD42-6 >>
1 REM ==================================
2 REM    COMMODARES PROBLEM #38-3 :
3 PRINT"[147]ALPHA SPRITE "
4 REM    SOLUTION BY
5 REM    DANNY FAUGHT
6 REM =====   FOR C64 ONLY   ===========
7 REM ==================================
10 FORX=0 TO 7:READ C(X):NEXT:DATA 128,0,192,223,64,192,128,192
20 FOR X=832 TO 895:POKEX,0:NEXT:PRINT"  _PRESS A KEY"
30 GET A$:IF A$="" THEN 30
40 A=(ASC(A$)+C(ASC(A$)/32))AND255 :POKE 1024,A : P=-2048*(PEEK(53272)=23)
50 POKE 56334,0 : POKE 1,51
60 FOR X=0TO7:POKE 832+X*3,PEEK(53248+8*A+X+P):NEXT
70 POKE 1,55:POKE 56334,1
80 V=53248 :POKE 2040,13:POKE V,100:POKE V+1,100:POKE V+23,1:POKE V+29,1
90 POKE V+21,1:GOTO 30